DWB 4 
MAILIST.DOC
S
 2953 
QS49664
P
 345 
MLT0801
P
 15922 
MAILIST 64.BRIER
P
 2071 
   IS A COMPLETE DATABASE THAT STORES AND RETRIEVES UP TO 500
SEPARATE RECORDS.  ACH RECORD MAY CONTAIN THE FOLLOWING INFO:
     &  
     
    
    
    
    
     
     
     
    #1
    #2

HE ENTRIES ARE KEYED INTO AN ALPHABETIZED INDEX BY MAKING A FILENAME FROM THE
PERSON'S LAST NAME AND FIRST INITIAL.  OR XAMPLE, OHN MITH WOULD GENERATE
 AS A FILENAME.  HE PROGRAM APPENDS A RECORD NUMBER TO THIS FILENAME. 
F THE   PROMPT IS DEFAULTED THIS GENERATION WILL OCCUR.

EARCHES MAY BE DONE ON IP CODE, ATE #1, ATE #2 OR ALL. LSO, THE RECORD
INDEX MAY BE DISPLAYED AND A RECORD PICKED FROM IT.  ILENAME MAY BE PATTERN
MATCHED AS CAN ZIP CODES AND THE MONTH OF ANY GIVEN DATE. RINTER ROUTINES
SUPPORT FULL PRINTING OF RECORDS OR PRINTING OF MAILING LABELS.   IS
PRIMARILY IN COMPILED , BUT SEARCHES ARE PERFORMED RAPIDLY WITH THE
ACCOMPANYING  SUPPORT ROUTINES, PLEASE MAKE SURE THESE FILES ARE NAMED
PROPERLY AND RESIDE ON THE SAME DISK.  HE  FILE AND  FILE FOR THIS
PROGRAM REQUIRE ABOUT 390 LOCKS ON ONE DISK, MAKE SURE THERE IS ENOUGH ROOM
WHEN YOU START IT.


HEN THE PROGRAM PROMPTS YOU TO DO SO, PLACE A BLANK FORMATTED DISK IN THE
DRIVE AND HIT 1 TO CONTINUE.

T  THE AIN ENU SELECT OPTION 1, WHICH IS TO CREATE RECORDS.  HEN YOU ENTER
THAT MODE THE PROGRAM WILL CHECK FOR A FILENAME INDEX ON THE DISK.  AVING
FOUND NONE, IT WILL PROCEED TO CREATE THE TWO FILES.  HEN THE DISK ACTIVITIES
ARE FINISHED YOU WILL BE PROMPTED FOR  .

 NOTE ON ENTRIES.   UTILIZE A STANDARDIZED FORMAT IN WHICH ENTRIES THAT ARE
PROMPTED IN NORMAL VIDEO REQUIRE A CERTAIN MINIMUM AMOUNT OF ENTRY.  F THE
PROMPT IS IN REVERSE VIDEO YOU MAY DEFAULT.  F THERE ARE DEFAULT CHARACTERS
UNDER THE CURSOR AT THAT TIME THEY BECOME YOUR INPUT.

NTRY LIMITS:

      ILENAME:  20 ALPHA CHARACTERS MAX
      1ST NAME:    14 CHARACTERS MAX
      AST NAME:   18 CHARACTERS MAX

OTE: F YOU'VE DEFAULTED THE FILENAME AND THERE IS A SPACE INTHE LAST NAME THE
RESULTING FILENAME WILL BE REJECTED (SPACES AREN'T ALLOWED IN THE FILENAME).

      EC. NAME:   32 CHARACTERS (ANY TEXT)
      DDRESS:     25 CHARACTERS
      ITY:        18 CHARACTERS
      TATE:        2 ALPHA (MUST BE 2)
      IP CODE:     OR -
      REA CODE:   3 DIGITS ONLY
      OME PHONE:  -
      ORK PHONE:  -
      ATE #1:     -- OR -- (0 NOT ALLOWED FOR 1ST MONTH DIGIT)
      ATE #2:     AME AS DATE #1

PON ENTERING THIS INFO AND ACKNOWLEDGING THAT THE RECORD IS OK, THE RECORD
WILL BE WRITTEN TO DISK AND THE FILENAME ADDED TO THE INDEX.  HEN YOU LEAVE
THE RECORD ENTRY ROUTINE THE INDEX IS SAVED TO DISK.

PTIONS 2 AND 3 ON THE MAIN MENU DON'T WORK UNTIL YOU HAVE AT LEAST ONE NAME ON
FILE.

HE PROGRAM USES STANDARD  ATIVE AND UENTIAL COMMANDS AND SHOULD WORK
WITH ANY  DRIVE.
      GUÝ}åHiÝå}e}ýeÈUÅPiÅQ}ÅRÅS Ð`RNSON 0PiPQP   Ð8RRS ðR   ðPR P0PN PU}}ÅRi}ÅSfSfR ðUÝVýiÝj 5 ELG½}Ý~ýÝ E 5LG¥QSPR```PiUåQi i`8P}åQ ` 
 2076BLITZ!   LLL		
tb*
2V0rfI6$$$$$$$$$$zttAC`ڞmmںkk22\\\ 	=uuuvuuuuuuutuuw #*18?FMT[bipw~'  d
jS+{ $d 
- q bd'eKd	"	#8ȥe#ed"dee#ede"dbb	0q qqe	0L 
LafIfL0 BdIdeIeLLXoedanoieaaf348a21 z3b54c6o#o"i"5"5ie556d#d"n"5"5Ledc4b3
a	e334oȱojȱokpok4j3	ej34aaf jb%<de

Lfi"af0,%<deLan0fEn0ajbkcld
pme𺐰Р ijklnIlmImmllmm0m*jmkilm <L
	U	VnEfoa T Lldme	Ed0%<deLadD$p dePaɁJFic;bJ3dc(bJf( d(e$f 
<LLL1 \0 BF<l%ddm%e
lddmeeLLH kiɁjJfknIlkIm`  9P:Q 
L# LP9Q:L-.`_0/ ȑ_e_7834hhHH ;AB`NmeeldL
meeeleddpL bcff 
 p ۼLbcd0f 
LdElfd 
lIlmImmldel
llmm bcdejkF()()F(f)eemedeldcekcbejbm&l&k&jѥdIdeIeed`Jeemedeldcekcm&l&kީ L9:z{=>Lᧅ<h0AhnhihjhkhlhmLqL*hlhm
LLL1L-LhohpLP
L	zUVlU hhhhz{9:$P 8 D A hh h$p ;9: e99
: 99w[+-ȥ00 BLȱ-06" "$p a-ȥf	%b-ȥc-ȥd-ȥe- ;L8e-I.i La;9
LLe:;;~padD$p deEaɁ?;ic0bJ(dc(bJf(d(e$f 
LeHdHcHbHaHfHHeHdHH;ɠHk-ȱ-dȱ-e 
Lȱ-<
8e-Id.i JeIcIbIaLɦ}9	 ɤ9L:ȱ-aȱ-f	bȱ-cȱ-dȱ-e 
pL99
:)H`9G
&`
&`
&`8G`He-_e.`_iI`i JLoɰ)e d
L ɪ}ɧ9ȱ9edȘ 
L9aȱ9f	bȱ9cȱ9dȱ9e 
L)99:
)a9ea9::ȆbcL
-ɬ {Lɯ
 HLLʆdeL L9e/iȱ9e0j9: ie/_ȊifiLձ9/e/_Ȋ/N/e0`_F_E_
ie_X e`Yh0hnhihjhkhh \mHlHhr_h_LEhqNh0hnhihjhkhh \mHlHhl_h_LEhmrq
 Lem"elqrгr
&r$E0F$F0p
&reqeXIereYJ$;PL)IeIdIcIf	bIa
pLeXIreYJ $;pȱIeId
L0} B veqeXI$;pxdereYJe
dcdbdaL $;_0ȱ_pL
IJdeLpL p  aIȥf	%bIȥcIȥdIȥeI ;LereYJaHc4b3<e8438a21 zb3c4d#d"a"3"3cIbIaI;LhiUhi VhphfhahbhchdhelU  fʆde` pabcdf 
dee0e*becade`)0$p aɁEf0(ibJd
bJfcdce` Mb8jfc	ed+LHf0$p aɁ 㪥bJfcc`ed`$p f0aɁbJe d` aedc4b3	ea34bL 9
i( կL0fLd 
L0aɐ
$p  ̼L BLd0eȘ A0> +Lw edLLedc4b3	ea34a 
edLbc#"eda4
3	eb34a  
L0\adK$p de9aɁ3/ic$bJdc(bJf(	d( ݽe$f 
 	mQnlkPȹ aLdLH a34821 z34bc ebLed  ;L H 
0h0:)ed$0L-LLhac4b3
bLaa)ia34821 z34bci bL0 d2h	h,h.&h0#h8hhhhJ
	edLH hhPhQPPi95#ʊn iIeeiI
iinaa=348a21 zb3c4Pen"ȱPi #a"b"ba bc
ȆdeiLLд<  <LI   <L9i z:i {  0L<A*L7Ai b"Bi c#8eAABaF<L $0L0Lea#c4b3	ea34a
b aLV0]ȥadJ$p de8a48/ic$bJdc(bJf(	d( ݽe$f 
 	      9=:=8
Ii<0 dJeF<Ӑ   ;L
 
 C  L	edLH  9DȄ;L0 dߥe L87LL@,,%L9=:>L<'  
 YLq  ) .   "C L<C :ж Eȹ  z{$
0_ y  z :, b=>9:LC<U  
  $
0La eidL{Lkj$"jzȹ "ȹ :,8jaL<i=U<@< Z

* Z0 ULeL<J<<`)  7 L0
ij
nkmJl)  7
	JIe(ݚ@L5eHdHmHlHLf	%bb"#LC  + 8:H9HJHIHHLiJI
iL0JI
Ȱ&iHi$h fIJ g л ]LqIIeqIId	de  Ed0'i ;L8:9Lِيi ;L;deDLa;;Ȇ<dLH 9e
9LF<e9H:i HHȱ9ȱ99: Lihɍ
iLhIhJhI h:h9L;	deLaL;de	Laȱ9Lȱ9e-dȱ9e.eȱ9e-lȱ9e.me9j:i kj dƠ9e-G9e.H9iH:i HGL:G9GIȱGJȱIHJHIHL+ȱ9ȱ9Eȱ9F1_/i2`0i!9e/k9e0lkkXikȊk   ;rE_ȥF_ʆq_  i_Ȋ_ L"qr LLMȄ
 F Z   L<^LY᥹湩HHLo< {99:`FLLHhiEhi Fh
hhelE h0h8ܨhhhhJ    ƹ  
 Z LLL &348a21`L5+D1F1Fڪ  N 	N A 
C S Z A T T D D > ?A
MAILING LIST>A(C) BRIER 1985>AI0`ap:a1¦4æ İŰ<A MAILING LIST >"; <<< MAIN  MENU >>> >
SELECT:= 1  TO FILE RECORDS>; 2  TO UPDATE/SEARCH/DISPLAY>; 3  TO DELETE RECORDS>; 4  TO TERMINATE PROGRAM>;  MAKE A SELECTION: <!?>1Ǉ
!k+_'~Ak"8  : İŰƊ.Ɍ.Ȋ͊
.3$w;>+!k5*ĎϧR"R @p:1vR"R @9ϨB   ,N,NF$(0):,ANOTHER RECORD (Y/N)?>p:9~FY>$w!NR!)  ʧ̧է֧קا٧ڦ=   UPDATE RECORDS >FILE NAME? <A¦Z!?<<<	(<<)>>BYR"KNR+tN
X<=:<Xp:=A.  CHANGE SEC. NAME>;B.  CHANGE STREET ADDRESS>;C.  CHANGE CITY>;D.  CHANGE STATE>;E.  CHANGE ZIP CODE>;F.  CHANGE AREA CODE>;G.  CHANGE HOME PHONE>;H.  CHANGE WORK PHONE>;I.  CHANGE DATE # 1>;J.  CHANGE DATE # 2>;K.  UPDATE ANOTHER RECORD>;L.  RETURN TO MENU>AMAKE A SELECTION: <A¦L!?.@ޞ<?///00A00/P11AR$"K+t	
ҟ !"<?%ҒYR"۠#>9$wVERIFYING>=:<p:UPDATE ANOTHER RECORD (Y/N)?>9~FYR"KNR%	+tǰ$%<A&>;  1. BY ZIP CODE>;  2. BY DATE # 1>;  3. BY DATE # 2>;  4. ALL RECORDS>; MAKE A SELECTION: <1¦4ñ!?1'CC'<A&<>'
678E8CHANGE ANOTHER FIELD (Y/N)?>9~FYN
X%ǰ()*C))() A>A+>A,>)A-<)
!>)A.>A/>9~FR+tR&)(())**&)R&R&jA RECORD NO.?     <0¦9ó!?R&10<A#>00

4:<&() <Ȏ0͠)0ABAD NUMBER>4:<&<A=:<1>2></>p:9~FR+tR&R'a.&;p:ӔR @<A DELETE RECORDS > FILE NAME?  <A¦Z!?? "R @ R)<BYR'N"R @NR(<ANR'(ȒYR')$ CHANGE RECORD OR FIELD (R/F)?  <F¦RñFı!? ? RX F4:ꑑ>("ꑑ<Ϧ! <?FIELD TO CHANGE? <A¦Jñ!?55.@ޞ///00A00/P11A<<	 DELETED>DELETE ANOTHER RECORD (Y/N)>9~FYN
X(>B   ,I%,NF$(0):S0:MLRFM`SAVING INDEX>*BC3 BCa9ap: @, !HIT F1 TO DISPLAY RECORD,#HIT F6 TO PRINT A MAILING LABEL2SEARCHING        HIT F5 TO RETURN TO INDEX1 CROSS-SEARCH RECORDS &HIT F5 FOR PAGE 1.HIT F8 TO RETURN TO MENU/4) 4 34(5+HIT F5 FOR PAGE-0:MLRFM,S,W`9ΔR*͠3
4^61΍3FILE IS FULL.>4:WAIT>6	0:MLRF,L,3`93α69BCa9*B0C3 B^<Caa"$w)d;p:`7<AUPDATE/SEARCH/DISPLAY MENU>A>SELECT:  1  TO UPDATE RECORD>A2  TO CROSS-SEARCH RECORDS>A3  TO DISPLAY RECORD INDEX>A4  TO DISPLAY SINGLE RECORD>A5  TO RETURN TO MAIN MENU>AMAKE A SELECTION: <1¦5ñ!?1"K%&, @   288^R,ߠ8A
8A꓁=  RETRIEVE RECORD >"jR-#HIT F1 TO DISPLAY ANOTHER RECORD>#HIT F6 TO PRINT A MAILING LABEL>HIT F8 TO RETURN TO MENU>p:9~FR+tR,	Y9.-zANOTHER RECORD (Y/N)?>9~FYR,NR+t-:;%, !B<:;R.R;$w.9:R..9:==A>::;;%%::;;.;3R-ޱ%.>p:TODAY'S DATE? <-¦9ø!?B#R.`>>:/ϱ͏
:62 ?:?61;/ϱ͏
;62 ?;?61Ϡ<D=B<B	C BCB
CB<, << <C$DD XD@.-.

@4: NEW WORK PHONE?  <-¦9ø!?. R/..-
4:ꑑ>/P NEW SEC. NAME?  < ¦Zæ !?NEW ADDRESS? < ¦Z!?
NEW CITY? < ¦Z!? NEW STATE?  <IĦLŦA¦Zò!?4:ꑑ>0NEW ZIP CODE? <-¦9ú!?R0|.
4:ꑑ>0A NEW AREA CODE?  <0¦9ó!? R04:ꑑ>0 NEW HOME PHONE?  <-¦9ø!? R1.-
4:ꑑ>0 NEW DATE # 1?  <-¦9ø!?B#	ꑑ>1 NEW DATE # 2?  <-¦9ø!?B#	ꑑ>1A
ENTRY #<>ƦA¦Z FILE NAME?  <!? 
4:1vۦ ¾FIRST NAME? <!?6@	ꑑ<1A
LAST NAME? <!?6@	ꑑ<1蟠A 	 A4<A<>#>4R1vXƦ 55 SEC. NAME?  <!?55
ADDRESS? <!?
55CITY? <!?A±ƦIĦL55 STATE?  <!?
4:26zR3P-¦955ZIP CODE? <!?R3+.-

4:2Ѱ͊666.0
4:2Ѱ͊666.0
4:2џ0¦9ñ55 AREA CODE?  <!? R3
4:3P-¦9ø55 HOME PHONE?  <!? R3/6@R355 WORK PHONE?  <!? R3/6@R355 DATE # 1?  <!?B#R355 DATE # 2?  <!?B#R455RECORD OK (Y/N)?>p:9~FNp:(" FR4; R$w1vYR4Z0Д<#>B<X
FILE NAME <<	 EXISTS.>4:!HIT  F1  TO REDO THIS RECORD.>(HIT  F8  TO ABORT THE ENTRY ROUTINE.>9~F$wR5R @<<><	>A <>B <
>*C <<, D << E <>F <<-<G <>H <>I DATE # 1: <>J DATE # 2: <><ϼ??SEARCHING FOR ZIP FILE>60:ZCSF`H	UCQ>aaaBZD>H7S7C !7S #7Z %͠7
H!U#W%Qaaɠ7X͠7
!#
%ɠ7@ϊ../.:@. @@4:`ZIP CODE? <İŦ-¦9ú!?6-
4:6= <Ȧs69HS4R7i:$<$$<%$ES=ŒN3%ꓙ<<
 NOT ON FILE>$>DATE # 1? <İŦ-¦9ø!?	B#R711

4:7= <Ȧ69HS4R8":$<$$<%$ES=ŒN3%ꓙ<<
 NOT ON FILE>$>DATE # 2? <İŦ-¦9ø!?	B#R8E11

4:8E= <Ȧ69HS4R8:$<$$<%$ES=ŒN3%ꓙ<<
 NOT ON FILE>$>=*<=EP9N.[-ʰ <9:$<<$$%$ES=ŒN%NOTHING ON FILE>$>0:MLRF` 
FBP<c3<F 	3<F3<63CH	UCQX2XaaBZ3Ҧ 3       =69B	C"69BCC69B
C]69BCp69BCs69BC~69BC69BC69BC69BC69BCa9a
RECORD FOUND>69H	S"69HSC69H
S]69HSp69HSs69HS~69HS69HS69HS69HS69HS9 3Ҧ3       XaaSEARCHING FOR INDEX>3360:MLRFM`	LOADINGDH	UCQ>aa WAIT                      #aBZ3N D>HSR<|	aa @Ӱ HS,a9aҰݛ2A??X?͠?
?<ƍ/4
ݍ?/ϱ͏
62 ??51<EPR.<>AUPDATE MODE><	> >
><, <<  <> 	<-< 
H: <> 
W: <> DATE # 1 <> DATE # 2 <>5>699$GCONTINUE SEARCH (Y/N)?>9~FN<Y<#>$=EaaNR>8$SEARCH COMPLETED>%4:%p:'HIT F7 TO CROSS-SEARCH MORE RECORDS>/>9~FR%R+t>sC%%	/˴B	<EDB	C<<HIIH/˴B<EDB
C<<H
/˴B
<EDBC<<H/˴B<EDBC<<
/ˠH&B
<EDB<!<< <C<<H@ΠH'B<, << <<EDB
C<<HH

/˴B
<EDB
C<<HH
@@<<H@@<<H@@OHH
@@<<HB< <<  <C<<H DB< <<  <C<<H
D<<DD<<$B< <<  <<EDB<!<< <C<<B<, << <<EDB<!<< <CB< <<  <<EDA/////B<, << <<EDB< <<  <CINSERT FILE DISK INTO DRIVE>HIT  F1  TO CONTINUE>p:9~FRA^>REMOVE FILE DISK FROM DRIVE>p:78@$0	<(O<> ARE YOU SURE (Y/N)? >p:9~FY^0Ա"NXAԠ**B72PAGE<*C<<B72<><

C<<͉ X6-6-X6-6-Xͧ4:a꓁<C>DISK PROBLEM. WAIT FOR MENU.>4:ϧ @<< NOT FOUND.>4:RB뇲XUPDATE ANOTHER RECORD (Y/N)?>9~FYN
XBDELETE ANOTHER RECORD (Y/N)?>9~FYN
XCꓞ<ARECORD INDEX  P<*>A+<>A) SCREEN OR PRINTER (S/P)?       <SĦP¦Sñ!?EESXEP
>4:CC'Y9A'    MAILING LABELS (Y/N)?      <NĦN¦Yñ!?99Y9N
X>4:CH HH HHB4(4<EOII      CC     CL     CH     C1     C2     FL     S      D     X      IB     Q      IC     F      J      T      FF     K     A     ɀ     N      DF     AL     AH     DL     DH     CA     N     P     FA     K      Z      B     C     SF     P     CT     C      P     D      S1     S2     PC     L     P     P     P     P     RN     P     P     Ҁ     B     L     P      M      L      F     L1     L2     LT     AF     D     A      EF     G     E      X     P     D     Ȁ     TF     FC     LF     9   MAILING LIST LOADER               W.J. BRIER 1985 |
 A500:808,234:""(142)"LOADING MAILING LIST...STAND BY n 55,211:56,158::53280,0:53281,0:I820 x X:X1I40660:140  I,X:II1:120  :  :  X:X1300 		 I,X:II1:160 	 : &	,A1:"QS49664",8,8 ,	: A	:"MLT0801",8,8 G	X: M	: h	169,15,141,24,212,169 	10,141,5,212,169,255 	141,6,212,169,33,141 	4,212,169,6,141,1 	212,169,0,141,252,3 	162,0,202,208,253,206 
$252,3,208,248,169,32 
.141,4,212,169,0,141 3
825,208,169,0,141,24 H
B212,96,0,13,0,0 c
L169,15,141,24,212,169 |
V0,141,5,212,169,247 
`141,6,212,169,17,141 
j4,212,169,76,141,1 
t212,169,100,141,252,3 
~162,0,202,208,253,206 
252,3,208,248,169,32 141,4,212,169,0,141 025,208,169,0,141,24 ?212,96,-1 E: K: d238,175,2,169,0,133 198,141,168,2,173,172 2,174,173,2,172,169 2,141,234,159,142,235 159,140,236,159,173,177 2,32,210,255,169,18 32,210,255,173,234,159  32,210,255,169,146,32 = 210,255,173,235,159,240 W*8,32,210,255,169,157 r432,210,255,32,228,255 >141,237,159,172,168,2 H240,7,201,20,208,3 R76,197,159,201,13,240 \60,204,176,2,240,229 f205,174,2,144,224,205 
p175,2,176,219,201,34 +
z240,215,201,44,240,211 G
201,58,240,207,169,157 c
32,210,255,173,237,159 {
153,0,2,32,210,255 
238,168,2,169,160,162 
0,141,234,159,142,235 
159,142,236,159,76,246 
158,173,236,159,240,83  173,172,2,153,0,2 238,168,2,173,173,2 0240,7,200,153,0,2 J238,168,2,169,157,32 e210,255,169,32,32,210 255,169,157,32,210,255 	172,236,159,240,14,173 	172,2,32,210,255,173 	173,2,240,3,32,210 $	255,169,160,141,172,2 .	169,0,141,173,2,141 8	169,2,169,13,32,210 5B	255,206,175,2,173,0 ML	2,172,168,2,96,172 fV	168,2,208,189,76,19 `	159,32,210,255,32,210 j	255,206,168,2,172,168 t	2,208,20,173,169,2 ~	141,236,159,173,172,2 	141,234,159,173,173,2 	240,3,141,235,159,76 	246,158,-1   